home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / x68000.arc / SOURCE.ARC / SRECORD.DEF < prev    next >
Encoding:
Modula Definition  |  1986-01-23  |  950 b   |  31 lines
  1. DEFINITION MODULE Srecord;
  2. (* Creates Motorola S-records of program:        *)
  3. (*    S0 = header record,                        *)
  4. (*    S2 = code/data records (24 bit address),   *)
  5. (*    S8 = termination record (24 bit address).  *)
  6.  
  7.    FROM FileSystem IMPORT
  8.       File;
  9.  
  10.    FROM LongNumbers IMPORT
  11.       LONG;
  12.  
  13.  
  14.    EXPORT QUALIFIED
  15.       StartSrec, WriteSrecLine, EndSrec;
  16.  
  17.  
  18.    PROCEDURE StartSrec (VAR f : File; SourceFN : ARRAY OF CHAR);
  19.    (* Writes S0 record (HEADER) and initializes *)
  20.  
  21.    PROCEDURE WriteSrecLine (VAR f : File; 
  22.                             AddrCnt, ObjOp, ObjSrc, ObjDest : LONG;
  23.                                nA,     nO,    nS,     nD    : CARDINAL);
  24.    (* Collects Object Code -- Writes an S2 record to file if line is full *)
  25.  
  26.    PROCEDURE EndSrec (VAR f : File);
  27.    (* Finishes off any left-over (Partial) S2 line, *)
  28.    (* and then writes S8 record (TRAILER)           *)
  29.  
  30. END Srecord.
  31.